home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / miscstat.arc / POISDIST.BAS < prev    next >
BASIC Source File  |  1986-04-25  |  713b  |  26 lines
  1. 1 'POISson DISTribution
  2. 2 KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10  PRINT "POISSON DISTRIBUTION"
  4. 20  PRINT 
  5. 30  PRINT "(TO END PROGRAM ENTER 0)"
  6. 40  PRINT "CALCULATED FREQUENCY";
  7. 50  INPUT L:IF L<0 THEN 50
  8. 60  IF L = 0 THEN 180
  9. 70  PRINT "TEST FREQUENCY";
  10. 80  INPUT X:IF X<0 THEN 80
  11. 90 A = 1
  12. 100  FOR I = 1 TO X
  13. 110 A = A * I
  14. 120  NEXT I
  15. 130 A =  LOG (A)
  16. 140 A =  EXP ( - L + X *  LOG (L) - A)
  17. 150 PRINT:PRINT "PROBABILITY OF"X"OCCURRENCES":PRINT"IS";A
  18. 160  PRINT 
  19. 170  GOTO 40
  20. 180 PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  21. 190 LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  22. 200 K$=INKEY$:IF K$="" THEN 200
  23. 210 IF K$=" " THEN RUN
  24. 220 IF K$<>CHR$(27) THEN 200
  25. 10000 RUN"MENU
  26.